home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)z9.d64 / boot (.txt) < prev    next >
Commodore BASIC  |  2007-03-01  |  2KB  |  55 lines
  1. 1 PRINT CHR$(147):POKE53281,0:POKE53280,0
  2. 24 PRINT "    MICRON SOFTWARE PRESENTS"
  3. 60 FOR I=1 TO 1500:NEXT I
  4. 65 PRINT "[145]   B     R     I     C     K     S"
  5. 70 PRINT " [155]    [149]    [155]    [152]    [155]    [151]    [152]    [158]    [155]    "
  6. 75 PRINT " [151]  [155]    [152]        [149]    [155]    [151]    [155]    [151]      "
  7. 80 PRINT " [158]    [151]    [155]        [151]    [152]    [155]    [149]    [152]    "
  8. 83 PRINT "INTERACTIVE BOOK I (KEYBOARD & TURTLE)"
  9. 85 FOR I=1 TO 2500:NEXT I
  10. 90 PRINT "[147](C) 1984  MICRON SOFTWARE, INC."
  11. 95 PRINT "SAN FRANCISCO, CA. MADISON, WI."
  12. 100 POKE 646,1
  13. 110 PRINT "--------------------------------------"
  14. 120 PRINT
  15. 135 PRINT "[155]         W E L C O M E   T O    "
  16. 140 PRINT
  17. 150 POKE 646,1
  18. 152 FOR I=1 TO 800:NEXT I
  19. 155 PRINT "[158] ====  =====  ===     ===   ==   =="
  20. 156 FOR I=1 TO 50:NEXT I
  21. 160 PRINT "[158]===== ======= ====   ====  ====  =="
  22. 161 FOR I=1 TO 50:NEXT I
  23. 170 PRINT "==    ==   ==  ==== ====  ==  == =="
  24. 171 FOR I=1 TO 50:NEXT I
  25. 180 PRINT "==    ==   ==  =========  ==  == =="
  26. 181 FOR I=1 TO 50:NEXT I
  27. 190 PRINT "[156]==    ==   ==  == === ==  ====== =="
  28. 191 FOR I=1 TO 50:NEXT I
  29. 200 PRINT "[156]==    ==   ==  ==  =  ==  ====== =="
  30. 201 FOR I=1 TO 50:NEXT I
  31. 210 PRINT "===== ======= ===     === ==  == ====="
  32. 211 FOR I=1 TO 50:NEXT I
  33. 220 PRINT " ====  =====  ===     === ==  == ====="
  34. 230 PRINT "    B     R     I     C     K     S    "
  35. 250 FOR I=1 TO 800:NEXT I
  36. 270 POKE 646,1
  37. 280 PRINT "--------------------------------------"
  38. 300 POKE 646,6
  39. 310 PRINT "ADJUST COLOR WHILE PROGRAM LOADS"
  40. 320 PRINT "PROGRAMMING BY GORDON D. SHIGLEY"
  41. 330 POKE 646,1
  42. 900 POKE 53281,0
  43. 910 REM CHAIN"HI + CHR$(13)
  44. 920 [151] 198,9
  45. 930 [151] 631,[198]("C")
  46. 940 [151] 632,[198]("H")
  47. 950 [151] 633,[198]("A")
  48. 960 [151] 634,[198]("I")
  49. 970 [151] 635,[198]("N")
  50. 980 [151] 636,34
  51. 990 [151] 637,[198]("H")
  52. 1000 [151] 638,[198]("I")
  53. 1010 [151] 639,13
  54. 1020 [147] "C64 COMAL*",8
  55.